qinternalize <- function( outDir ){
  f <- list.files(outDir)  
  f <- f[ grep('.Robj',f) ]
  f <- f[ order(as.numeric(sapply(strsplit(f, "-"), function(l) l[2]))) ]
  results <- NULL
  for( getMe in f){
    load(file=file.path(outDir,getMe))
    results <- c(results, outVec, recursive=FALSE)
  }
  results
}
                            
